www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Admin_Right.asp
<html> <head> <META content=ywnt,云网互动影视管理系统 name=keywords> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>云网互动影视6.0--后台管理</title> <LINK href="css/css.css" type=text/css rel=stylesheet> <style type="text/css"> div#mask { position:absolute; top:0; left:0; background:#fff; filter:alpha(opacity=50); -moz-opacity:0.2; z-index:100; } div#login { position:absolute; top:100px; left:200px; width:300px; z-index:200; } div#login p { margin-left:5px; float:left; width:250px; } </style> </head> <BODY leftMargin=0 topMargin=0 scroll=yes MARGINHEIGHT="0" MARGINWIDTH="0"> <script language="JavaScript" src="YWNT_TMS_Inc/ajaxrequest.js"></script> <!--#include file="../Conn.asp" --> <!--#include file="YWNT_TMS_inc/YWNT_TMS_Function.asp" --> <!--#include file="YWNT_TMS_inc/UpDateInc.asp" --> <% '=================================================================================================================== '软件名称:云网影视管理系统 'Copyright (C) 2002-2007 ywnt.net All rights reserved. '产品咨询QQ:489234,2813712 '程序版权:云网互动科技有限公司 '程序开发:云网互动科技有限公司 '官方网站:http://www.ywnt.net '郑重声明: ' 1、免费版本请在程序首页保留版权信息,并做上本站LOGO友情连接,商业版本无此要求; ' 2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息; ' 3、云网互动科技有限公司保留此软件的法律追究权利 '=================================================================================================================== IF Session("Admin")="" and Session("AdminGroup")="" and Session("AdminSession")<>true Then Response.write "<script>top.location.href='Admin_Login.asp'</script>" END IF Sub Detection() UpVersion=GetURL(UpDateUrl&"Version.asp") UpVersion = Replace(UpVersion, " ", "") UpVersion = Split(UpVersion, vbCrLf) IsLastVersion = True For i = 0 to UBound(UpVersion) I_UpVersion=UpVersion(i) If toNum(I_UpVersion) > toNum(LocalVersion) Then W_UpVersion=UpVersion(i) IsLastVersion = False Exit For End If Next if IsLastVersion<>True then%> <div id="mask" style="display:none;"></div> <div id="login" style="display:none;"> <TABLE class=table cellSpacing=1 cellPadding=3 width="98%" align=center border=0> <form name="form" action="Admin_UpDate.asp?Action=UpAdd&UpVersion=<%=W_UpVersion%>" method="post"> <TBODY> <TR> <TD class=xingmu><p>在线升级</p><img src="Images/logbg_v2.gif" width="18" height="18" id="fnquit"></TD> </TR> <TR align="center"> <TD height=32 colspan="2" class="hback">发现了更新文件版本号是<%=W_UpVersion%></TD> </TR> <TR> <TD height=32 colspan="2" align="center" class="hback"><input type="submit" name="Submit" value="升 级"></TD> </TR> </TBODY> </form> </TABLE> </div> <script type="text/javascript"> function g(obj) { return document.getElementById(obj); } var login = { title:null, show:function(){ var sWidth,sHeight; sWidth = screen.width; sWidth = document.body.offsetWidth; sHeight=document.body.offsetHeight; if (sHeight<screen.height){sHeight=screen.height;} g("mask").style.width = sWidth + "px"; g("mask").style.height = sHeight + "px"; g("mask").style.display = "block"; g("login").style.display = "block"; }, hide:function(){ g("mask").style.display = "none"; g("login").style.display = "none"; } } function onclick(){ login.show(); } g("fnquit").onclick = function(){login.hide();}; login.hide(); onclick(); </script> <%end if End Sub call Detection()%> <TABLE class=table cellSpacing=1 cellPadding=3 width="98%" align=center border=0> <TBODY> <TR> <TD class=xingmu>信息记录</TD> </TR> <TR> <TD height=28 class="hback"><STRONG><%=Session("Admin")%> </STRONG>您好! 身份:<%=WAdminGroup("GroupName",Session("AdminGroup"))%> 今天是: <SCRIPT language=JavaScript type=text/JavaScript>var day=""; var month=""; var ampm=""; var ampmhour=""; var myweekday=""; var year=""; mydate=new Date(); myweekday=mydate.getDay(); mymonth=mydate.getMonth()+1; myday= mydate.getDate(); myyear= mydate.getYear(); year=(myyear > 200) ? myyear : 1900 + myyear; if(myweekday == 0) weekday=" 星期日 "; else if(myweekday == 1) weekday=" 星期一 "; else if(myweekday == 2) weekday=" 星期二 "; else if(myweekday == 3) weekday=" 星期三 "; else if(myweekday == 4) weekday=" 星期四 "; else if(myweekday == 5) weekday=" 星期五 "; else if(myweekday == 6) weekday=" 星期六 "; document.write(year+"年"+mymonth+"月"+myday+"日 "+weekday); </SCRIPT> </TD> </TR> <TR> <TD height=27 class="hback">快捷菜单: <A href="Admin_Movie.asp?Action=Add">添加影片</A> <A href="Admin_Movie.asp">管理</A> | <A href="Admin_Admin.asp">管理员管理</A> | <A href="Admin_Log.asp">日志管理</A> </TD> </TR> </TBODY> </TABLE> <TABLE class=table height=62 cellSpacing=1 cellPadding=3 width="98%" align=center border=0> <TBODY> <TR> <TD class=xingmu>欢迎使用云网影视管理系统</TD> </TR> <TR> <TD height=32 class="hback"> <span id="ywntnew"><img src="Images/wait.gif" border="0">正在读取官方公告</span> <Script language="JavaScript"> function mycallback(obj) { document.getElementById("ywntnew").innerHTML=obj.responseText; } var ajax=new AJAXRequest({ url: "Admin_Ywntnew.asp", method: "POST", oncomplete: mycallback, charset: "GB2312" }); ajax.post(); </script></TD> </TR></TBODY></TABLE> <TABLE class=table height=197 cellSpacing=1 cellPadding=3 width="98%" align=center border=0> <TBODY> <TR> <TD class=xingmu colSpan=4>服务器信息</TD> </TR> <TR> <TD height=32 class="hback"> 返回服务器的主机名,IP地址<%=Request.ServerVariables("SERVER_NAME")%></TD> <TD height=32 class="hback"> 站点物理路径:<%=Request.ServerVariables("PATH_TRANSLATED")%></TD></TR> <TR> <TD width="48%" height=32 class="hback"> 返回服务器处理请求的端口:<%=Request.ServerVariables("SERVER_PORT")%></TD> <TD width="52%" height=32 class="hback"> 服务器操作系统:<%=Request.ServerVariables("OS")%></TD></TR> <TR> <TD width="48%" height=32 class="hback"> 脚本解释引擎<SPAN class=small2>:</SPAN><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></TD> <TD width="52%" height=37 class="hback"> WEB服务器的名称和版本:<%=Request.ServerVariables("SERVER_SOFTWARE")%></TD></TR> <TR> <TD width="48%" height=32 class="hback"> 脚本超时时间:<%=Server.ScriptTimeout%> 秒</TD> <TD width="52%" height=32 class="hback"> CDONTS组件支持<SPAN class=small2>:</SPAN><%ShowObjectInstalled("CDONTS.NewMail")%></TD></TR> <TR> <TD width="48%" height=32 class="hback"> 虚拟路径:<% sHostName = Request.ServerVariables("HTTP_HOST") sUrl = Request.ServerVariables("URL") Response.Write("http://" & sHostName & sUrl)%></TD> <TD width="52%" height=32 class="hback"> Jmail邮箱组件支持: <%ShowObjectInstalled("JMail.SMTPMail")%></TD></TR></TBODY></TABLE> <TABLE class=table cellSpacing=1 cellPadding=3 width="98%" align=center border=0> <TBODY> <TR> <TD class=xingmu colSpan=2>使用本软件,请确认的服务器和你的浏览器满足以下要求:</TD></TR> <TR> <TD width="48%" height=25 class="hback"> JRO.JetEngine(ACCESS 数据库<SPAN class=small2>):</SPAN> <%ShowObjectInstalled("JRO.JetEngine")%></TD> <TD width="52%" height=25 class="hback"> 数据库使用: <%ShowObjectInstalled("adodb.connection")%></TD></TR> <TR> <TD height=25 class="hback"> <SPAN class=small2>FSO</SPAN>文本文件读写<SPAN class=small2>:</SPAN> <%ShowObjectInstalled("Scripting.FileSystemObject")%></TD> <TD height=25 class="hback"> MSXML2.XMLHTTP <%ShowObjectInstalled("MSXML2.XMLHTTP")%> (非必须) Adodb.Stream <%ShowObjectInstalled("Adodb.Stream")%> </TD> </TR></TBODY></TABLE> <TABLE class=table height=132 cellSpacing=1 cellPadding=3 width="98%" align=center border=0> <TBODY> <TR> <TD class=xingmu colSpan=4>联系我们</TD></TR> <TR> <TD height=20 align=center class="hback">产品咨询</TD> <TD height=20 class="hback">0352-4198590 QQ:2813712,489234</TD> <TD align=center class="hback">传 真</TD> <TD class="hback">0352-4198590</TD> </TR> <TR> <TD width="13%" height=20 align=center class="hback">客服电话</TD> <TD width="30%" class="hback">0352-4198590</TD> <TD width="12%" align=center class="hback">客服QQ</TD> <TD width="45%" class="hback">QQ:489234</TD> </TR> <TR> <TD width="13%" height=20 align=center class="hback">官方网站</TD> <TD width="30%" height=20 class="hback"><A href="http://www.ywnt.net/">ywnt.net</A></TD> <TD width="12%" align=center class="hback">帮助中心</TD> <TD width="45%" class="hback"><A href="http://www.ywnt.net/" target=_blank>www.ywnt.net</A> 论坛:<A href="http://bbs.ywnt.net/">bbs.ywnt.net</A></TD></TR> <TR> <TD colSpan=4 height=20 align=center class="hback"> ©2002-2006 CopyRight Ywnt Inc. All Rights Reserved</TD></TR></TBODY></TABLE> <% Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function Sub ShowObjectInstalled(strObjName) If IsObjInstalled(strObjName) Then Response.Write "<b>√</b>" Else Response.Write "<font color='red'><b>×</b></font>" End If End Sub%> </BODY> </HTML>